home *** CD-ROM | disk | FTP | other *** search
/ Futurshow - Un Taglio Al Passato / Futurshow - Un Taglio Al Passato.iso / pc / futur.dir / 00125_Script_125 < prev    next >
Text File  |  1998-03-11  |  3KB  |  95 lines
  1. on cresci
  2.   set theRect1=the rect of sprite 2
  3.   set theRect2=the rect of sprite 3
  4.   set theRect3=the rect of sprite 4
  5.   
  6.   set tempRect=the rect of sprite 3
  7.   set tempRect1=the rect of sprite 4
  8.   
  9.   set d11=float(getAt(theRect1,1)-getAt(theRect2,1))/30
  10.   set d12=float(getAt(theRect1,2)-getAt(theRect2,2))/30
  11.   set d13=float(getAt(theRect1,3)-getAt(theRect2,3))/30
  12.   set d14=float(getAt(theRect1,4)-getAt(theRect2,4))/30
  13.   
  14.   set d21=float(getAt(theRect2,1)-getAt(theRect3,1))/30
  15.   set d22=float(getAt(theRect2,2)-getAt(theRect3,2))/30
  16.   set d23=float(getAt(theRect2,3)-getAt(theRect3,3))/30
  17.   set d24=float(getAt(theRect2,4)-getAt(theRect3,4))/30
  18.   
  19.   set the locV of sprite 2 to 1000
  20.   repeat with i=1 to 30
  21.     setAt(tempRect,1,getAt(tempRect,1)+d11)
  22.     setAt(tempRect,2,getAt(tempRect,2)+d12)
  23.     setAt(tempRect,3,getAt(tempRect,3)+d13)
  24.     setAt(tempRect,4,getAt(tempRect,4)+d14)
  25.     set the rect of sprite 3 to tempRect
  26.     
  27.     setAt(tempRect1,1,getAt(tempRect1,1)+d21)
  28.     setAt(tempRect1,2,getAt(tempRect1,2)+d22)
  29.     setAt(tempRect1,3,getAt(tempRect1,3)+d23)
  30.     setAt(tempRect1,4,getAt(tempRect1,4)+d24)
  31.     set the rect of sprite 4 to tempRect1
  32.     
  33.     updatestage
  34.   end repeat
  35.   
  36.   set the rect of sprite 2 to theRect1
  37.   set the rect of sprite 3 to theRect2
  38.   set the rect of sprite 4 to theRect3
  39.   updatestage
  40. end
  41.  
  42. on deCresci
  43.   set theRect1=the rect of sprite 2
  44.   set theRect2=the rect of sprite 3
  45.   set theRect3=the rect of sprite 4
  46.   
  47.   set tempRect=the rect of sprite 2
  48.   set tempRect1=the rect of sprite 3
  49.   
  50.   set d11=float(getAt(theRect2,1)-getAt(theRect1,1))/30
  51.   set d12=float(getAt(theRect2,2)-getAt(theRect1,2))/30
  52.   set d13=float(getAt(theRect2,3)-getAt(theRect1,3))/30
  53.   set d14=float(getAt(theRect2,4)-getAt(theRect1,4))/30
  54.   
  55.   set d21=float(getAt(theRect3,1)-getAt(theRect2,1))/30
  56.   set d22=float(getAt(theRect3,2)-getAt(theRect2,2))/30
  57.   set d23=float(getAt(theRect3,3)-getAt(theRect2,3))/30
  58.   set d24=float(getAt(theRect3,4)-getAt(theRect2,4))/30
  59.   
  60.   set the locV of sprite 4 to 1000
  61.   repeat with i=1 to 30
  62.     setAt(tempRect,1,getAt(tempRect,1)+d11)
  63.     setAt(tempRect,2,getAt(tempRect,2)+d12)
  64.     setAt(tempRect,3,getAt(tempRect,3)+d13)
  65.     setAt(tempRect,4,getAt(tempRect,4)+d14)
  66.     set the rect of sprite 2 to tempRect
  67.     
  68.     setAt(tempRect1,1,getAt(tempRect1,1)+d21)
  69.     setAt(tempRect1,2,getAt(tempRect1,2)+d22)
  70.     setAt(tempRect1,3,getAt(tempRect1,3)+d23)
  71.     setAt(tempRect1,4,getAt(tempRect1,4)+d24)
  72.     set the rect of sprite 3 to tempRect1
  73.     
  74.     updatestage
  75.   end repeat
  76.   
  77.   set the rect of sprite 2 to theRect1
  78.   set the rect of sprite 3 to theRect2
  79.   set the rect of sprite 4 to theRect3
  80.   updatestage
  81. end
  82.  
  83. on adjSt
  84.   global theSt
  85.   
  86.   set the member of sprite 9 to member ("st"&(theSt-1))
  87.   set the member of sprite 10 to member ("st"&theSt)
  88.   set the member of sprite 11 to member ("st"&(theSt+1))
  89.   set the member of sprite 12 to member ("st"&(theSt-1)&".img")
  90.   set the member of sprite 13 to member ("st"&theSt&".img")
  91.   set the member of sprite 14 to member ("st"&(theSt+1)&".img")
  92.   set the member of sprite 15 to member ("st"&(theSt-1)&".did")
  93.   set the member of sprite 16 to member ("st"&theSt&".did")
  94.   set the member of sprite 17 to member ("st"&(theSt+1)&".did")
  95. end